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History 

Declarations 

EXESIMGF IX Address Relocation Fixu 

GET BASE_ADDRESSES = Locate Each Sharea 

IMGSIS_IT_MAPPED = Search ICB List for Shareab 

PROCESS _FIXUP_LIST = Perform Post-Activation Fixups 
FIXUP_G_HAT Fixup G-hat exit vector 

SHIMG_BASVA Convert a shareable image index to an address 
FIXUP_ADDRESS Fixup .ADDRESS entries 

F IXUP_PROT Alter page protection to rea 

IRGSeRY SURIRG Fixup Routine for Privileged Shareable Image 


S$ 
HRIMG = Look for and Call Shareable Image Initialization Code 
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~TITLE SYSSIMGFIX = Address Fixup System Service 
~ IDENT ; Venu 060! we : 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE — AND corres 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tats oy WITH THE 
INCLUSION OF THE ABOVE ghd NOTICE. THIS SOF TWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeRPORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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a 
3 Facility: 

Executive - Image Activator Completion Routines 
Abstract: 


This module contains subroutines used by the image activator 
to perform address relocation after images have been activated. 


Environment: 


Most of the code in this module runs in user mode but some routines 
may also be called from exec mode. 


» SUBTITLE History 
Author: 
Lawrence J. Kenah 


Creation Date: 
19 March 198 
Modified by: 
v03-010 LJK0279 Lawrence J. Kenah 8-May-1984 
Miscellaneous cleanup. Remove temporary definition of 


SHLSS. SHL_SIZE. Put all code into YFSSSYSIMGACT program 
section. ~ 
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v0.06 History si : gree E 1 obe BSisescs LENSES Macro ,uOt sO, Page 2 


v03-009 LJK0270 Lawrence J. Kenah 31-Mar-1984 
Add code to call shareable image initialization routines. 


v03-008 LJK0275 Lawrence J. Kenah 25-Mar-1984 
The size of SH. elements is variable. It depends on when 
the image was Linked 


V03-007 LJK0238 Lawrence J. Kenah 26-Jul-1983 
Use new concept of image base address instead of first address 
into which image is mapped. 


v03-006 LJK0218 Lawrence J. Kenah 28-Jun-1983 
Minor cleanup. 
v03-005 LJK0200 Lawrence J. Kenah 14-Jun-1983 


Make changes that support new image activator 


Base addresses of shareable images are now located by searching 
the ICB List, a much simpler List than the master ae vector 
List. Routine COPY_SHL is no longer needed. All code that 
existed to support a previous design for mapping shareable 
sneges permanently into P1 space is also eliminated. Use 
IMGS prefix for global — point names. Eliminate prefix 
from routines that are local. 


v03-004 LJKO195 Lawrence J. Kenah 99-Mar-1983 
Make so-called recursive activation capable of oct tues tng 
more than one image without dropping some fixups on the floor. 


v03-003 LJK0192 Lawrence J. Kenah 7-Jan-1983 
Do poor man's recursive activation to support shareable 
images that reference other shareable images not known 
to the image header of the executable image. 


MLJ0099 Martin L. Jack, 20-Oct-1982 19:40 
Fix broken BSBWs. 

v03-001 fevee | Kathleen D. Morse 28-Jun-1982 
Added $SSDEF. 


v03-002 


WOON AUS WN (OOO NAUE WN 0 OO NAME WN OOO NAUS WN O00 


O00 00000000 09 09 09 09 09 09 09 09 09 SI NIN SINS NNN IO PAA AAA AAOO 


L 16 
sang stterennggre rmtee rvice UGE INE REAT BN Ant 


. SUBTITLE Declarations 
: Include Files: 


v04-00 Page 3 
SYS.SRCISYSIMGFIX.MAR;1 (2) | 


; Image activator control flags 

; Offsets into image activator fixup 

; area within image file 

; Image control block offsets 

; Context of currently executing image 
; Image activator status codes | 
; PSL field definitions and constants : 
: A met List offsets for SSETPRT system service 

; Offsets into shareable image List element 
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v0.08 EXESIMGF IX hadress Relocation Fixup Syst mie} 0g: 90:28 SYS.SRCISYSIMGFIX.MAR;1 _ (3) 
099 12 - -SBTTL EXESIMGFIX Address Relocation Fixup System Service 
9 Nf : Functional Description: 
09 1 § : This procedure is called after an image is activated but before it 
0 120 ; s called in order to allow address fixups to be performed in user 
$88 lel : access mode if the caller of the image so wishes. This prevents 
0 1 § : rocess destruction os security breaches if the image that has just 
4 } z ; een activated contains garbage or selected cleverness. 
0000 : 5: Calling Sequence: 
0900 ; : CALLS #0, EXESIMGFIX 
9909 ; > Implicit Input: 
0000 131 : Address space of image just activated that contains fixup vectors 
4 138 : that describe the address fixups that must be done. 
909 , : Implicit Output: 
0000 136 : ALL soprepe tate locations are relocated to reflect the locations 
44 13 3 of each shareable image during this activation of the image. 
BR08 173 : Completion Codes: 
4 1) : RO low bit set => successful completion (SS$_NORMAL) 
44 148 : RO low bit clear => error occurred 
0000 145; Actual error status codes are returned by GET_BASE_ADDRESSES and 
444 108 : PROCESS_FIXUP_LIST. 
9000 148 : Side Effects: 
0000 150; See the routine headers for the two functional routines for a 
0000 151; description of the effects of this procedure. 
$383 
0900 132 ; Put all of this module into a separate pageable program section 
er 136 -PSECT YFSSSYSIMGACT 
099 138 EXESIMGFIX:: 
005¢ 1 -WORD “M<R2,R3,R4,R5> ; Save some registers 
= ¥ 89 160 BSBB GET ASE“ ADDRESSES ; Get base address of each image 
26 50 5 004 161 BLBC RO,T ; Skip hard part if an error occurred 
OOAC 0 0007 196 BSBwW PROCESS_FIXUP_LIST : Do the actual relocation 
1 E1 QOOA 16 BBC #IMAGCTR$V_SETVECTOR,- 
1B 00000000 ' GF a 19 inneael Gr IACSEL IBAGCTX. 108 3 Any vectors to set? 
1 166 “INGCTL=#IACER SETVECTOR ; Let image activator set them 
11. ~=«~«€1 D 167 10$ BBC #IMAGCTXS$V NTT IAL LEE. 
03 00000000 ¢F F 168 G*I1ACS$GL_IMAGCTX,20$ ; Any routines to be called? 
0189 30 5 18 BSBwW INISHRIMG 3: Find them and call them 
04 0038 £170 20$: RET ; Return with final status 
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wr -SBTTL GET_BASE_ADDRESSES = Locate Each Shareable Image 

: Functional Description: 

This routine is called before the actual be 5 operations are performed 
to determine the base address of each shareable image that has been 
mapped. if a shareable image in the fixup List has no correspondin 
entry of the same name in the master ICB List, an error is reported. 


Note that the image activator has filled in the base address for SHL 
entry 0, the SHL associated with the image itself. 


Calling Sequence: 
JSB GET_BASE_ADDRESSES 
Input Parameters: 
none 
Implicit Input: 
Listheads for fixup vector List and ICB list 
Output Parameters: 


ALL SHL entries in the Linked List of fixup vectors have base addresses 
of their associated shareable images stored in SHLS$L_BASEVA. 


Completion Codes: 
RO = SS$_NORMAL 
ALL base addresses were successfully stored. 
RO = IMG$_IMAGE_NOT_FOUND 
A shareable image name in a SHL entry had no corresponding 
B. This means that the shareable image was not mapped, 
which indicates an inconsistency between SHL entries and 
image section descriptors in the image header of one of the 
images that was mapped. 
Side Effects: 


RO and R1 are destroyed 
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none 
Implicit Output: 


Be Se Se Ge Ge Be Be Ge Se Ge Se Se Ge Se Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Se Se Se Se Se Se Ge 4+ Se Se Se Se Se Se 


PROPMOPONIMNINIDD 4 9 9 PF FM ODOODOOO SOO OOO OOO OOOOWWWOMMOMWOWOO INNIS 
DNASE WIN OOO NAMES WN OOO NAUE WIN 9 OM NAME WN 0 OD NOAM EWN OOONOUS WN 


RIPPIN IP IPIPIPINIARINIPININPYI|PINPYININPINIPYIPNINPININPYINIPINPID 2 tt tt 


COOOCOCOCOOCOSOOSOOCOCOCOOS CSCC OSOCOCOOSSOCCCSO COCO OOOCOOCO OOOO OOoOOO 


COOCOCOCOCCOOSOOOSOOOOSOSOOOOOOOOOOSOOOOOOSOOSCOOoOO 


GET_BASE_ ADDRESSES: 
55 FFFFFFFC'GF ODE Z MOVAL G*<CTLSGL_FIXUPLNK-IAFSL_FIXUPLNK>,RS ; Pick up Listhead address 
55 04 AS 00 4 10$: MOVL {ACSL_F LXUPLAK (RS) ORS : Get address of next fixup vector 
| ie 4 BEQL 0$ ; Return success if done 


Reretes Service 2 1 ~$E0= 1388 ay eee! ertae Macro V04-00 Page 6 


Sree inet ix - Address Fixu 
v04 GET_BASE_ADDRE = Locate Each Shareab 5-SEP- SYS.SRCISYSIMGFIX.MAR;1 (4) Sy! 
m te °° 46 9 MOVL AFSL_SHRIMGCNT(RS),R2 ; Count of SHL entries to R2 $$/ 
53 18 AS 58 i te RDDLS AFSL SHLSTOFF(RS) AB" s address Of Tiree SHE eee vectors th 
° . Py ess oO rs entr 0 
54 10 23 9A (+ MOVZBL SAC$B, SHC SIZECRS) Ra ; Get size of each SHL element +H 
4 ; By jumping into the middle of the loop, we are in effect skippin Fl) 
$3 oy dy B. whose base address was Stored by the image getivster’ un the Fl) 
: § ; image was mapped. i 
OE 11 3 3 BRB 25$ iM 
50 184A 7 40 208 MOVAB SHLS$T_IMGNAM(R3),RO 3; Pass shareable ima in RO 1A( 
bots 5 b86 rt W IMG$IS_IT_MAPPED ; Find associated SHE entry in ICB LIST LAF 
1150 €9 Ft: s BLBC RO, 408 : Quit if orca occurred Af 
63 5C Al DO 006 4 MOVL I CBSL_BASE_ADDRESS(R1), SHL$L_BASEVA(R3) 1A 
065 44 3; Store base address LAF 
53 54 £0 065 45 25$: ADDL2 R4,R3 ; Point to next SHL entry 1A 
eo ee st é$ SOBGTR R2, 20% ; and do next entry a 
ma. i rh ges 10$ ; Go back and get next fixup vector ier 
50 O0000'°8F 3 06D 50 30$: MOVZWL #SS$_NORMAL,RO ; Indicate s t Ll ICE 
ds oore 581 dos; RSY ° Sead tho Ice 
ICE 
1m/ 
1M/ 
IMC 
IMC 
IMC 
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a » SUBTITLE IMGSIS_IT_MAPPED = Search ICB List for Shareable Image 
; Functional Description: 
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This Be Say searches the shareable image list associated with the 
executable image to determine whether a shareable image with a given 
name exists in the List. This routine is used to determine whether a 
shareable image has atreasy been mapped. Is is also used to relate the 
relative shareable image List within a shareable image to the shareable 
image List associated with the executable image. 


Calling Sequence: 

JSB IMGSIS_IT_MAPPED 
Input Parameters: 

RO = address of counted (ASCIC) string of shareable image name 
Implicit Input: 


IACSGL_IMAGE_LIST = Doubly Linked List of ICBs describing images 
that have already been mapped 


Output Parameters: 


If successful, R1 contains the address of the image control block 
that describes the named image. 


Completion Codes: 
RO low bit set indicates success (SS$_NORMAL) 
RO low bit clear indicates failure (IMG$_IMAGE_NOT_FOUND) 


This status indicates that no match occurred, implying that 
the shareable image in question has not yet been mapped. 


The severity of this status depends on the caller. This routine 
is called by the image activator to determine whether an image 
has been mapped. If the \ooge name is not found, then the image 
activator maps the image. If this routine returns this status 
to the fixup code located earlier in this module, that is a 
fatal error indicating an inconsistence egtugen shareable image 
Lists inside fixup vectors and ISD Lists in image headers. 
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IMGSIS_IT_MAPPED: : 
POSHR #*M<R2,R3,R4,R5,R6,R7> ; Save some registers 
MOVZBL (RO)+,R4 ; Save character count in R4 
MOVL RO,R5 ; Save string address in R5 


ASSUME ICBSL_FLINK EQ 0 


MOVAL G*IACSGL_IMAGE_LIST,R7? ; Get address of ICB Listhead 
MOVL R7,R6 ; Copy it to a working register 
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v04- IMGS1S¢ It MAPPED 2 Search ICB List for S$ ioe ty 7 8g: 20:23 LEYS SRCISYSIMCE IX MAR: 1 . &) 
8 6 D 7 310 10$ MOVL 1CBSL _FLINK(R6) ,R6 ; Get address of next ICB 
6 6 «=D A 11 CMPL R6,R ; Check for end of List 
ee \¢ BEQL $ : Equality indicates no more ICBs 
14A6 546 91 F 14 CMPB R4, I1CBST_IMAGE_NAME(R6) ; Do string sizes agree? 
F2 \¢ Bae 15 BNEQ 
15 A6 6 6©6650— SG 09 1g 
8 is O9A 1 BNE ; Go get next ICB if no matc 
51 ® oo bat 18 MOVL R6,R1 ; Store ICB address 
50 00000000'8F DO 009F 0 MOVL #SS$_NORMAL ,RO :; Indicate success to caller 
OOFC 8F BA nae 1 208 POPR #°M<R2,R3,R4,R5,R6,R7> ; Restore registers 
05 a § RSB 3 and return 
OAB 4 ; If we loop through the entire ICB List without ayreeene the image name, then 
ahae 2 ; the shareable image has not yet been mapped. Indicate that to caller. 
50 08408962 8F dO boas 7 30$: MOVL #IMG$_IMAGE_NOT_FOUND,RO 
51 D4 008 $8 CLRL R1 
FO 11 00B4 9 BRB 20$ 


;.No, go get next ICB 
CHPCS R4 (RS) , 1CBST_IMAGE_NAME+1 (RQ) ; Check strings for equality 


; % 
SYSSIMGF IX - Address Fixup System Service 16-SEP-1984 02:20:2 AX/VMS Macro Vv04-00 P 9 
voe~008 PROCESS FIXUP LIST «Perform Post-Activa \Sasepe19Re OosSeice fete ec Te Somer ixcgan:1 | a8e C8, 
+4 1 E ~SBTTL PROCESS_FIXUP_LIST = Perform Post-Activation Fixups 
e ; Functional Description: 
B 5: This routine processes a Linked list of fixup vectors and performs 
B § 3 the specific fixup operations listed in each vector. There are three 
+4 : forms of fixup. 
BeBe 9; ° Gach exit vector has the base address of the shareable 
4 rk ; mage added to each entry. 
0 é 1 : o Each .ADDRESS directive has the base address of the 
4 rf : appropriate shareable image added to it. 
de 45 ; o The protection of each fixup vector is changed to prevent 
4 rf 3 its being written when the image executes. 
d0se rt : Calling Sequence: 
0086 30 ; JSB PROCESS_FIXUP_LIST 
0086 26 : Input Parameters: 
00B6 a2 8 
boBe 855 gies 
Boee 2$ : Implicit Input: 
0086 58 ; CTLS$GL_F IXUPLNK Listhead of Linked List of fixup vectors for 
Boee 23 : a set of shareable images 
00B6 61; Output Parameters: 
00B6 6¢ 3 
Bpee o7 : none 
0086 $5 : Implicit Output: 
0B6 67 : Elements in fixup vector G~hat offset area have base address 
bee of 3 of appropriate shareable image added to them. 
0086 70 ; -ADDRESS directives throughout the address space have base 
94 4 : addresses added in. 
0B6 rg : Pages that should eventually be read-only but were set to 
44 fe 3 writable while the image activator works are set back to read-only. 
eee 6 : Completion Codes: 
pee 4 ; none 
oes ? : Side Effects: 
: § ; CTL$GL_FIXUPLNK cleared after fixups are completed. | 
3 4 j-- 
6 5 
BBG § PROCESS_FIXUP_LIST: 
55 FFFFFFFC'GF DE MOVAL G*<CTLSGL_FIXUPLNK-IAFSL_FIXUPLNK>,RS ; Pick up Listhead address 
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}AESL_F IXUPLNK (RS) .R5 

AFSL_G_FIXOFF (RS) ,R4 

uP_G HAT 
L“DOTADROFF (RS) ,R4 


UP _ADDRESS 
L>CHGPRTOFF(R5) ,R4 
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protection data 


t+ $ ew vector 
See if shete are any more 
Return to caller 


; Implicit Output: 


Elements in fixup vector G-hat offset area have base address 
of appropriate shareable image added to them. 


Completion Codes: 
none 
Side Effects: 
RO, R1, and R2 are destroyed 


H 1 
voe-008. FIXUPLESMAT Fixup’ Gchat exit vector —-'SSEp=1984 OSsSusa8 Levevenclevsimerixcman:1 0° 
: 7} ~SBTTL FIXUP_G_HAT Fixup G-hat exit vector 
: ¢) Functional Description: 
F 414 ; This routine performs the G-hat fixup for a specific exit vector. 
F 415 ; specifically, the base address of the appropriate shareable image 
: 2] is added to each entry in the exit vector. 
‘ 2 Calling Sequence: 
; 2 BSBW FIXUP_G_HAT 
1 2 Input Parameters: 
: ? R4 = Address of G-hat fixup area within fixup vector 
OF ; Implicit input: 
: Contents of G-hat fixup area 
: Output Parameters: 
: none 
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FIXUP_G_HAT: 
MOVL 


$b —b—b— 6 — hb — bb — bbb hh — hh — hh hh hd 
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52 B4 00 F 0 (R4)+,R2 ; R2 contains a count of fixups 

OD 1 F 5 BEQL $ 3; A zero indicates the end of the G-hat data 
51 84 00 F7 5 MOVL (R4)+, 3; Store shareable image number in R1 

0—E 10 FA 5 BSBB SHIMG_BASVA ; and then load R1 with base address 

FC 2 ; _of next shareable image. 
84 3] c FC 10$ ADDL2 = R1,(R4)+ ; Bias next exit vector entry 
FA 52 F FF 5 SOBGTR R2,10$ ; Do next entry 
a. : : ; BRB FIXUP_G_HAT ; Now do next shareable image 
50 0000'8F 3C 0104 58 208 MOVZWL #SS$_WNORMAL ,RO ; Indicate success 
05 0109 5 RSB ; Return 


OOOO OCOCOCOOCOCOCOCOCOOOCOCOCOCOOCOOCOSoSOO FY 


DOwWn> > >rrrrrrrrrrrrrr>r?rrrrr?rrrrrrrrrr vw 


>" 
SELLE LER LLL REEL EPP RSE EPP PEEP PEPE EEE OM 


wowowowon 
NO 


=< 


OWONAUES WN O OONO UE WW "OO ONOUE ro — a 0 


O00 0909 00 09 09 09090909 SININSI NSIS NSININIOOOOAOOOO OC 


wo 
ewn—o 


System Service 
vert a shareable image in 


AX/VMS Macro v04-00 
SYS.SRCISYSIMGFIX.MAR;1 


"SSEp=19be 68:84:48 


-SBTTL SHIAG_BASVA Convert a shareable image index to an address 


: Functional Description: 
This routine converts a relative shareable image number into the 
absolute base address at which that shareable image is mapped. It 
assumes that the base address of each shareable image has already 
been stored in its associated SHL entry. 

Calling Sequence: 
BSBW SHIMG_BASVA 

Input Parameters: 


R1 = Relative number of shareable image 
R5 = Base address of fixup vector 


| 
| 
| 
| 
Implicit Input: 
Contents of SHLS$L_BASEVA for shareable image indexed by R1. 
Output Parameters: 
R1 = Base address of shareable image indicated by input parameter 
Side Effects: 
RO is destroyed 


Sete Ge Se Ge Ge Se Ge Se Se Ge Se Ge Se Se Ge Se Ge Ge Ge Se Se Ge Ge Se Se See 


SHIMG_BASVA: 
ADDL3 


DD R5,1AFSL_SHLSTOFF(R5),RO ; Base address of shareable image List 
MOVZBL SHL$B_SHC SIZE (RO) .=(SP) ; Get size of each SHL element 

EMUL SP)+7R1,R0,R ; RO points to correct SHL entry 

MOVL SHLS$L_BASEVA(RO) ,R1 ; Store asscciated base address 


RSB 3; and return 
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-SBTTL FIXUP_LADDRESS Fixup .ADDRESS entries throughout the image 
Functional Description: 

This routine performs the .ADDRESS fixup for a specific exit vector. 

spec it ically. the base address of the appropriate shareable image 

s added to each .ADDRESS entry in this shareable image. 
Calling Sequence: 

BSBW FIXUP_ADDRESS 
Input Parameters: 

R3 = Base address of shareable image whose .ADDRESS directives 

are being fixe 

R4 = Address of .ADDRESS fixup area within fixup vector 
; Implicit Input: 
Contents of .ADDRESS fixup area 
; Implicit Output: 


«ADDRESS directives within this shareable image have the base addresses 
of the appropriate shareable images added to them. 


FIXUP_ADDRESS: 
MOVL 


0 (R4)+,R2 ; R2 contains a count of fixups 
BEQL 208 ; A zero indicates the end of the G-hat data 
MOVL (R4)+,R1 ; Store shareable image number in R1 
BSBB SHIMG_BASVA ; and then load R1 with base address 
3; _of next shareable image. 
10$: ADDL R3,(R4)+,R0 ; Get address of .ADDRESS directive 

ADDL R1,(RO) :; Bias by base address of shareable image 
SOBGTR R2,10$ 3; Do next entry 

RB FIXUP_ADDRESS ; Now do next shareable image 


208: 1} #SS$_NORMAL ,RO Indicate success 


Return 


$< 


c 
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~SBTTL FIXUP_PROT Alter page protection to read only 
Functional Description: 


This routine alters the page protection of yer tous seqt tons within 
the image to read only. These pages were initially writable so the 
image activator could {axup all of the relative references. The pages 
cannot be writable while the image is executing. 

Calling Sequence: 
BSBW F IXUP_PROT 

Input Parameters: 


R3 = Base address of image whose pages’ protection is being altered 
R4 = Address of protection data within fixup vector 


Implicit Input: 
Contents of protection data in fixup vector 

Implicit Output: 
Pages in address ranges specified in fixup vector have their Gretest tens 
changed to the protections also specified in that data area. The 
protection is usually no write access for any access mode. 

Side Effects: 


RO, R1, and R2 are destroyed 


IXUP_PROT: 
P 


OOO OOO 0909.69.09 0909 09 G9 G9 G0 I SSIS DDD DS DODD DS I EE te 
FAO ODNANE WIN OS OONANE WIN O ODNAU EWN @ OOO NAME WH 0 ODN US in 


SOOOOOOCOOCOOOOCOOOOSOOOOOCOC COCO OOOOCSOOSOOOOSOOO SOOO OOOOCOOOOOOOOCOOO 


DD USH R6 ; Need one more register here 
C2 SUBL #<4*SETPRTS_NARGS>,SP ; Set up space for argument List 
DD PUSHL #SETPRT$_NARGS ; Push argument count 
dO MOVL SP ,R6 ; Use R6 as argument pointer 
7¢C CLRQ -(§P) : Initialize input address array 
DO MOVL SP, SETPRT$_INADR(R6) ; Put its address into argument List 
D4 CLRL SETPRTS_RETADR(R6) ; Not interested in this argument 
dO MOVL #PSLS$C_EXEC SETPRTS_ACMODE (R6) 3; The image activator owns these page 
D4 O14F CLRL = SETPRTS_PRVPRT(RO) ; Not interested in this either 
3¢ 28 MOVZWL #SS$_NORMAL ,RO ; Establish initial status 
0 5 MOVL (R4)F,R2 ; Get count of number of protection changes 
1 5A BEQL egs :; Do not even start if nothing here 
1 5¢ 10$: ADDLS = R3,(R4)+, (SP) ; Get starting address 
C 6 MOVZWL (R4)+,R1 3 Ending address must be calculated 
8 6 SHL #9,R1,R1 3 eee from page couns in image section 
D7 6 ECL R1 ; Make byte count an inclusive count 
g! 69 ADDL3 = R1,(SP),4(SP) ; Put ending address in second longword 
C 8 MOVZ2WL (R4)+,SETPRTS$_PROT(R6) ; Get new protection from fixup vector 
FA CALLG (R6),G*SYSSSETPRT ; Call the system service 
7 ; Ignore errors 
F5 43 3? SOBGTR R2,10$ ; GO get next image section 
co 7¢ 39 208: ADDL2 #<8+4+<4*SETPRIS_NARGS>>,SP ;Reset stack pointer, 


SYSSIMGF IX - Addre 
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Ff 9 POPL R6 ; restore that ext i P 
2 238 RSB and return vine: doharersincis 
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1 ~SBTTL IMGSPRVSHRIMG Fixup Routine for Privileged Shareable Images 
: Functional Description: 


SYSSIMGF 1X 
V0L=006 


st 


This routine checks that a privileged shareable image has no 
outbounc calls. For images passing this test, remaining 
-ADDRESS fixups are performed. 

Calling Sequence: 
BSBW IMGSPRVSHRIMG 


Input Parameters: 


1 3 
1 3 
1 a 3 
! $3 
ht 
1 6 § : 
1 610 ; 
’ oi) 3 
THE 
1 615 ; RO Address of fixup vector 
1 o16 3 R1 Base address of privileged shareable image currently 
! 2 3 being mapped 
618 : Implicit Output: 
01 621 : If the fixup vector indicates no outbound calls, the base address 
1 6 § ; of the privileged shareable image is stored in the fixup vector 
13 ? 7 ; and the .ADDRESS fixups are performed. 
18 ‘ 5 : Side Effects: 
O18 ° ; : RO and R1 are destroyed 
Bie e 4 : Completion Codes: 
O18 ° 1: SS$_NORMAL Fixups were completed for privileged shareable image 
1 é : : SS$_NOSHRIMG | Shareable image has outbound calls 
ge 
1 6 § IMGSPRVSHRIMG: : 
af BB O01 ; 6 PUSHR #*M<R2,R3,R4,R5> ; Save some registers 
55 0 00 1 6 3 MOVL RO,R ; Store fixup vector address in R5 
1c AS 6001S C3 «01886 SUBL3 #1, [AFSL_SHRIMGCNT(RS) RO ; Is shareable image count 1? 
< ig 18D 640 BNEQ : If not, report error 
oc oH ° 135 eh ta" on Ot. _F LNOFF CRS) ; Also report error if G* fixup data 
53 1 06 194 $8 MOVL R1,R3 ; Store base address of image in R3 
18 AS .. & 197 968 ADDL3 IAFSL_SHLS 3 Also store base address in 
60 1 D 19C 45 MOVL SHL$L_ BASE ; ft entry or SHIMG_BASVA 
54 10 AS D 19F o68 MOVL $L_DOTADRO 3; Any .ADDRESS fixups? 
3 1 14 64 BEQL $ 3; Branch if none 
54 § 1A 908 ADOL2 ; Convert R4 offset to address 
FF71 1A8 3 64 BSBW AF pone Ss ; Fixup all .ADDRESS Care 
54 4aAaS OD 1AB 6 ? 10$: MOVL L_CHGPRIOFF(RS),R4 ; Get ot rset to protection data 
3 1 1AF 6 BEQL ; ALL done if none 
54 ¢ 181 6 § ADDL2 RG ; Make R4 an address 
FFB) 1B4 BSBW uP ay ; Change page protection 
C BA 187 4 208 POPR <R2Z2,R5,R4,R5> ; Restore registers 
5 + 636 RSB 3; and return 
0000'8F 3C OBA 6 “ 30$ MOVZWL #SS$_NOSHRIMG,RO 3 


; No outbound calls allowed 


N 1 
- - - . t4 a - { 
soe mi IMGSPRVSAR IMG F ison Reus iy 4 Privileg Bases §g:40:73 aes tats 78 po TKCRAR: 1 ‘trac dh vol 


F6 11 #O'BF 658 BRB 208 ; Return error status 
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ie] 669 : ~SBTTL INISHRIMG = Look for and Call Shareable Image Initialization Code 
\e) is : Functional Description: 
1C1 664 : This routine searches the shareable image List for images that have 
2 beg : included initialization code. . - 
1€1 667 : Calling Sequence: 
161 gee : ott INISHRIMG 
11 PE sout» 
3; Input Parameters: 
1¢€1 te : 
1C1 673; none 
101 674; 
git) of? : Implicit Input: 
01C1 $99 3 IACSGL_IMAGE_LIST - List of ICBs describing shareable images that 
gies 678 ; are currently mapped. 
1C1 679 ; IACSGL_FIRST_ICB = Address of ICB representing main image in the 
01C1 680; most recent image activation. 
01C1 681; 
01C1 et : Implicit Output: 
01C1 683; 
O1C1 684 ; If there are any images with ICBs containing shareable image 
01C1 685 ; initialization code, these procedures are called at their entry 
pies 686 3 points. Note that the ICB iist is traversed backwards. 
01C1 688 ; Side Effects: 
01C1 689; 
01C1 690 ; RO and R1 are destroyed 
01C1 691; 
01C1 $36 3; Completion Codes: 
01C1 693; 
343: 694 ; none 
1€1 695 ;:- 
Hh3 696 
1C1 697 INISHRIMG: 
7E 52 7D O1C1 698 mova R2,-(SP) ; Save some registers 
26 QOO00000'GF DE QO1C4 699 MOVAL  G*{ACSGL_IMAGE_LIST,R2 ; Get the Listhead address 
5 00000000'°GF D0 1b3 4 ’ MOVL G*IACSGL_FIRST_ICB,R3  ; This is the stopper 
52 O4A DO O1D 7 ¢ 10$: MOVL ICB$L_BLINK(R2) ,R2 3; Get the next ICB 
0 E1 108 7 BBC #1cB$? INITIALIZE ; Does this image need to be called? 
09 10 A 1D8 704 ICBSL_FLAGS (Re) , 20S : Branch if no initialization routine 
0 A2 C1 010B 705 ADDL3 ICBSL-INITIALIZE(R2),- ; Form the address of the entry point 
51 SCA 1DE 706 ICB$L~BASE_ADDRESS(R2) .R1 
$1 0 FB O1E1 707 CALLS #0, (RT) : Call the routine , 
3 26 D1 O1E4 i 20$: CMPL Re R3 3 Is this the end of the Line? 
3 12 QO1E7 709 BNEQ 10$ ; Back to the top is there's more 
52 E 7D O1E9 710 mMOva (SP)+,R2 3; Restore R2 and R3 
C5 OWEC 711 RSB ; ALL done. Return to caller. 
BiED ar 
1ED 71 . END 
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Symbol table i gr en 1382 8g: 80:33 EOYs SRCISYSIMGE IX MAR: 1 . (12) 
SSARGS = 
efi = $6000000 | 
CTLSGL_F IXUPLNK reeeeeee 
EX x 000 RG 
F IXUP_ADDRESS 11 R 
FIXUP_G_HAT OF2 R 
FIXUP PROT 43 R 
GET_BASE_ADDRESSES 00039 R 
IACSGL_FIRST_ICB atrekene =X 
LACSGL— IMAGCTX eeeeeere = X 
1AC$GL_IMAGE_LIST eereeeee =X 
LACSM_SETVECTOR = 3 $90 
LAF $L~CHGPRTO = 14 
LAF $L_DOTADROF F = 00000010 
LAF SL_F IXUPLNK = 00000004 
LAF SL_G_FIXOFF = 0 4444 f 
LAF $L_~SALSTOFF = 000000 
LAF SL_SHRIMGCN = $4 49 
ICBSL_BASE_ADDRESS = B88 005C 
ICBSL_BLINR = 00000004 
ICBSL_FLAGS = 0000001 
ICBSL-FLINK = 0000000 
ICBSL_INITIALIZE = 0000006 
1CB$T~ IMAGE _NAME = 00000014 
ICBSV_ INITIALIZE = 00000005 
IMAGCTXS$V_INITIALIZE = 00000011 
IMAGCTX$V_SETVECTOR = 0000001 
IMG$IS_IT MAPPED 00000073 RG 2 
IMGSPROUSHRIMG see the RG 02 
IMG$_IMAGE_NOT_FOUND = 0840896 
INISARIMG 000001C1 R 02 
PROCESS FIXUP_LIST 0000086 R 02 
PSLS$C_EXEC = 00000001 
SETPRT$_ACMODE = 0000000C 
SETPRTS$_INADR z 9000 4 
SETPRT$_NARGS = 00000005 
SETPRT$_PROT = 00000010 
SETPRTS_PRVPRT = 8 4449 
SETPRT$_RETADR = 000 spy 
SHIMG_BASVA Q000010A R 02 
SHL$B_SHL_SIZE = 00000010 
SHL$L_BASEVA = 0088000 
SHL IMGNAM = 0000001 
SS$_NORMAL teeeeere 8 8 6X 8 
$S$_NOSHRIMG eeereeee xX 
SYSSIMGACT teaenenee GX 3 
SYSSSETPRT eerereee x 

tema ae creme teen e + 

H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. ‘ 00000 ( -) 00 ¢ QO.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
bapse 099 0000 ( 0°) a ( 9} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
YFSSSYSIMGACT OOOOIED ( 493.) 2¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 


SYSSIMGF IX 


Phase 


VAX-11 Macro Run Statistics 


Page faults 


- Address Fixup System Service 1973 $ o-138e 9: g0: 23 ences Gece Tall ts 4 
See ee or | 
' Performance in s! 
Feoweoeeeeecoeeoeen «=~ ~o-+ 
CPU Time Elapsed Time 


Initialization 4 :00: 8.9 :00.4 
ey processing } :00: ? : § 
Synbol table sort ia :00: 9. 00.34 
3 table output :00. : ¥ 
Psect synopsis output § :00. 04 
Cross-reference output :00. :00. 
Assembler run totals 506 706.6 :18. 


The working set Limit was 1300 pages. 

21961 bytes (45 pages) of virtual memory were used to buffer the intermediate seer. 

inere were 20 pages of symbol table space allocated to hold 218 non-local ae local symbols. 
713 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

20 pages of virtual memory were used to define 19 macros. 


toeonrnenaans @ewrwrnrenrer2r 22 2£2=—2 


-+ 
! ; Macro library” statistics . 


Macro Library name 


_$255$DUA28: (SYS. ort ey wl -MLB;1 

“$255$DUA28: (SYS MLB; 1 

Sitti 8: SYSLIBIJSTARLET. MLB; 2 1 
TOTALS (all Libraries) 16 


329 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SYSIMGF IX/OBJ=OBJ$:SYSIMGFIX MSRC$:SYSIMGFIX/UPDATE=(ENHS: SYSIMGF IX) +EXECMLS$/LIB+LIBS$: IMGACT/LIB 
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